home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / misc / tv-prog.lha / TVprogram / Install_TV < prev    next >
Text File  |  2002-10-11  |  16KB  |  824 lines
  1. ; Skrypt instalacyjny dla programu TV (2000-2003)
  2. ;
  3. ;    $VER: Install_TV v1.2 by ZATOR (26.01.2002)
  4. ;
  5. ; 
  6.  
  7. (if (>= @installer-version 2883594)
  8. (
  9. (effect "lower_right" "radial" $FFEE00 $EE00)
  10. ))
  11.  
  12. (set #ver_comm (/ (getversion "libs:commodities.library") 65536))
  13. (set #ver_icon (getversion "icon.library" (resident)))
  14. (set #ver_icon (/ #ver_icon 65536))
  15. (set #ver_work (getversion "workbench.library" (resident)))
  16. (set #ver_work (/ #ver_work 65536))
  17. (set #ver_dops (/ (getversion "libs:muimaster.library") 65536))
  18.  
  19. (set wybr
  20.     (askchoice
  21.         (prompt "Jëzyk/Jazyk/Sprache/Language")
  22.         (help @askchoice-help)
  23.         (choices "POLSKI" "ÇEÎTINA") ;# "DEUTSCH")
  24.         (default 0)
  25.     )
  26. )
  27. (if (= wybr 0)
  28. (
  29. (set #witam "Witam w programie instalacyjnym programu\nTV\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  30. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  31. (set #gdzie "Gdzie zainstalowaê program? \n\ (katalog zostanie stworzony)")
  32. (set #help_gdzie "Wybierasz miejsce, gdzie ma zostaê zainstalowany program TV\n\nProgram potrzebuje 1MB dla swoich danych oraz ok 1MB dla ôciâganych danych z Internetu.\nPrzy dzisiejszych dyskach program ma bardzo skromne wymagania:)")
  33. (set #kopiuj_wb "Gdzie skopiowaê program TV?")
  34. (set #help_wb "Wybierasz miejsce, gdzie ma zostaê skopiowany program")
  35. (set #kopiuj_wb1 "Gdzie skopiowaê dokumentacje?")
  36. (set #help_wb1 "Wybierasz miejsce, gdzie ma zostaê skopiowana dokumentacja")
  37. (set #kopiuj_wb2 "Gdzie skopiowaê skrypty arexxa?")
  38. (set #help_wb2 "Wybierasz miejsce, gdzie majâ zostaê skopiowane skrypty aRexx'a")
  39. (set #kopiuj_wb31 "Gdzie skopiowaê moduîy?")
  40. (set #help_wb31 "Wybierasz miejsce, gdzie majâ zostaê skopiowane moduîy\n\ niezbëdne do ôciagania programów telewizyjnych!")
  41. (set #import_prompt "Z jakiego modulu chcesz korzystac?")
  42. (set #kopiuj_wb3 "Gdzie skopiowac niezbëdne pliki?")
  43. (set #help_wb3 "wybierasz miejsce gdzie majâ zostaê skopiowane niezbëdne pliki")
  44.  
  45. (set #kopiuj_modul "import/html-wp-online.tv")
  46. (set #kopiuj_pref "prefs/html-wp-online.pref")
  47.  
  48.  
  49. (set #dodaj "Czy mogë dodaê jednâ linie do user-startup?")
  50. (set #dodaj_help "Dodam linijke: Assign TVprog: xxx")
  51. (set #dodaje_tt "TOOLTYPE")
  52.  
  53. (set #info_jak "Jaki sposób instalacji wybierasz?")
  54. (set #info_jak_help "Wybierasz tutaj czy chcesz dokonaê peînej instalacji czy tylko zaktualizowaê program.\n\nPamiëtaj, ûe wybierajâc 'aktualizacje' nie instalujesz wszystkiego, a tylko aktualizujesz zainstalowane juû czëôci Tv-Programu.\n\nNaleûy równieû pamiëtaê, ûe skrypt nie instaluje wszystkich czëôci TV-Programu!\nJeôli chcesz skorzystac, ze wszystkich moûliwoôci tv-programu naleûy skopiowaê po instalacji brakujâce pliki.")
  55. (set #info_but0 "Instalacja")
  56. (set #info_but1 "Aktualizacja")
  57.  
  58. (set #stworzyc "Skrypt instalacyjny stworzy katalog nazwany 'TV-prog' dla programu TV.  Jesli chcesz zmieniê nazwe tego katalogu, wpisz nowâ nazwe poniûej.")
  59.  
  60. (set #pigw "Instaluje TV-Manager.library i TVbugraport.library")
  61.  
  62. (set #powiad_info "Czy zainstalowaê Powiadamiacza?")
  63. (set #powiad_gdzie1 "do katalogu WBSTARTUP (automatyczny start)")
  64. (set #powiad_gdzie2 "do katalogu TVProgramu")
  65. (set #powiad_gdzie3 "nie instaluj")
  66. (set #powiad_help (cat   "Powiadamiacz jest odrëbnym programem napisanym w C przez Jacka Walkowiak.\n\nDziëki niemu moûesz byê powiadamiany o wybranych przez Ciebie audycjach telewizyjnych.\n\n"
  67.              "Jeôli zainstalujesz go w katalogu WBSTARTUP to za kaûdym wystartowaniem komputera program bëdzie uruchamiany, natomiast jeôli zainstalujesz go w katalogu TV-Programu bëdziesz musiaî rëcznie uruchmiac go przez klikniëcie myszkâ na ikonce Powiadamiacza."
  68.              "\nJeôli nie potrzebujesz programu do powiadamiania po prostu wybierz 'nie instaluj' a skrypt instalacyjny nie zainstaluje powiadamiacza.\n\nW razie problemów z dziaîaniem powiadamiacza prosze kierowaê maile do autora programu rzydu@polbox.com"))
  69. (set #powiad_kopiuj "Kopiuje Powiadamiacza")
  70.  
  71. ))
  72.  
  73. (if (= wybr 1)
  74. (
  75. (set #dodaj "Mohu pêidat jeden êádek do user-startup?")
  76. (set #dodaj_help "Pêidat êádek do user-startup  Assign TVprog: xxx ")
  77. (set #dodaje_tt "TOOLTYPE")
  78.  
  79. (set #kopiuj_modul "import/html-wp-online.tv")
  80. (set #kopiuj_pref "prefs/html-wp-online.pref")
  81.  
  82. (set #witam "Vitá Vás instalaçní program \nTV programu\nDíky tomuto skriptu si mûùete nainstalovat a nakonfigurovat program")
  83. (set #info ("\nVerze (uù nainstalovaných) poùadovaných knihoven:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  84. (set #gdzie "Kam chcete nainstalovat program? \n\ (adresáê bude vytvoêen)")
  85. (set #help_gdzie "Volíte si místo, kde má byt nainstalován TV program")
  86. (set #kopiuj_wb "Kam zkopírovat TV program?")
  87. (set #help_wb "Volíte si místo, kam má být zkopírován program")
  88. (set #kopiuj_wb1 "Kam zkopírovat dokumentaci?")
  89. (set #help_wb1 "Volíte si místo, kam mají být zkopírované dokumentace")
  90. (set #kopiuj_wb2 "Kam zkopírovat arexxové skripty?")
  91. (set #help_wb2 "Volíte si místo, kam mají být zkopírované arexxové skripty")
  92. (set #import_prompt "Kam zkopírovat moduly?")
  93. (set #kopiuj_wb31 "Volíte si místo, kam mají být zkopírované moduly\n\potêebné pro stahovaní televizních programû!")
  94. (set #help_wb31 "Které moduly chcete pouùívat?")
  95. (set #kopiuj_wb3 "Kam zkopírovat poùadované soubory?")
  96. (set #help_wb3 "Volíte si místo, kam mají být zkopírované poùadované soubory")
  97.  
  98. (set #info_jak "Jaký si zvolíî zpûsob instalace?")
  99. (set #info_jak_help "Zvolíî si zde, zda chceî plnou instalaci nebo jenom aktualizovat program")
  100. (set #info_but0 "Instalace")
  101. (set #info_but1 "Aktualizace")
  102.  
  103. (set #stworzyc "Instalaçní skipt vytvoêí adresáê pojmenovaný `TV-prog' pro TV program. Pokud chcete zmënit jméno toho adresáêe, napiîte jeho jméno níùe.") 
  104.  
  105.  
  106.  
  107. (set #pigw "Instaluji TV-Manager.library, TVbugraport.library")
  108.  
  109.  
  110. (set #powiad_info "Chcete nainstalovat Upozorñovaç(Powiadamiacz)?")
  111. (set #powiad_gdzie1 "do adresáêe WBSTARTUP (automatický start)")
  112. (set #powiad_gdzie2 "do adresáêe TVProgramu")
  113. (set #powiad_gdzie3 "neinstalovat")
  114. (set #powiad_help "")
  115. (set #powiad_kopiuj "Kopírují Upozorñovaç(Powiadamiacza)")
  116.  
  117.  
  118. ))
  119.  
  120. (if (= wybr 2)
  121. (
  122.  
  123. (set #witam "Willkommen zum Installationsprogramm\nTV\nDank diesem Skript werden Sie das Programm installieren und konfigurieren")
  124. (set #info ("\nVersionen die bei Ihnen installierten Libraries, die benötigt werden\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  125. (set #gdzie "Wo möchten Sie installieren? \n\ (das Verzeichnis wird erstellt)")
  126. (set #help_gdzie "Sie wählen, wo der TV-Programm installiert wird")
  127. (set #kopiuj_wb "Wo soll der TV-Programm kopiert werden?")
  128. (set #help_wb "Sie wählen, wo der Programm kopiert werden soll")
  129. (set #kopiuj_wb1 "Wo soll die Dokumentation kopiert werden?")
  130. (set #help_wb1 "Sie wählen, wo die Dokumentation kopiert werden soll")
  131. (set #kopiuj_wb2 "Wo sollen die aRexx-Skripte kopiert werden?")
  132. (set #help_wb2 "Sie wählen wo die aRexx-Skripte kopiert werden sollen")
  133. (set #kopiuj_wb31 "Wo kopieren die Module?")
  134. (set #help_wb31 "Sie wählen wo die Module kopiert werden,\n\ die zum Laden der Tv-Programmen benötigt werden!")
  135. (set #import_prompt "Welches Modul möchten Sie benutzen?")
  136. (set #kopiuj_wb3 "Wo kopieren die benötigten Dateien?")
  137. (set #help_wb3 "Sie wählen wo die benötigte Dateien kopiert werden sollen")
  138. (set #dodaj "Darf ich eine Zeile zur user-startup zuschreiben?" )
  139. (set #dodaj_help "Die Zeile: Assign TVprog: xxx")
  140. (set #info_jak "Welche Installation wählen Sie?")
  141. (set #info_jak_help "Hier wählen Sie, ob Sie volle Installation oder nur die Programmsaktualisierung möchten")
  142. (set #info_but0 "Installation")
  143. (set #info_but1 "Aktualisierung")
  144.  
  145. (set #kopiuj_modul "import/html-wp-online.tv")
  146. (set #kopiuj_pref "prefs/html-wp-online.pref")
  147.  
  148.  
  149. (set #stworzyc "This installation will create a drawer named `TV-prog' for the TV software.  If you would like to change the name of this drawer, type the new name below.")
  150. (set #pigw "Installieren TV-Manager.library und TVbugraport.library")
  151.  
  152. ))
  153.  
  154. (welcome #witam)
  155.  
  156.  
  157.  
  158. (if (>= @installer-version 2883594)
  159. (
  160. (showmedia 'media' 'Docs/AFD-COPYRIGHT' 'upper_right' 'medium' 1 'wordwrap')
  161. ))
  162.  
  163. (message #info)
  164.  
  165. (if (>= @installer-version 2883594)
  166. (
  167. (closemedia media)
  168. ))
  169.  
  170. (if (>= @installer-version 2883594)
  171. (
  172. (showmedia 'pics' 'Docs/pics/okno.iff' 'upper_left' 'none' 1)
  173. ))
  174.  
  175. (set sposob
  176.     (askchoice
  177.         (prompt #info_jak)
  178.         (help #info_jak_help)
  179.         (choices #info_but0 #info_but1)
  180.         (default 0)
  181.     )
  182. )
  183.  
  184.  
  185.  
  186.  
  187.  
  188. (if (>= @installer-version 2883594)
  189. (
  190. (closemedia pics)
  191. ))
  192.  
  193.  
  194. (if (= sposob 0)
  195. (
  196.  
  197.  
  198.  
  199.  
  200. (set #wyb1
  201.     (askdir
  202.         (prompt #gdzie)
  203.         (default "SYS:")
  204.         (help #help_gdzie)
  205.         (disk)
  206.     )
  207. )
  208.  
  209. (complete 5)
  210.  
  211. (set #drawername "TV-prog")
  212.  
  213. (if (> @user-level 1)
  214.                (set #drawername
  215.                   (askstring
  216.                  (prompt #stworzyc)
  217.                  (help @askstring-help)
  218.                  (default "TV-prog")
  219.                   )
  220.                )
  221.             )
  222.  
  223. (set #wyb2 (tackon #wyb1 #drawername))
  224. (set #wyb3 (tackon #wyb2 "data"))
  225. (set #wyb4 (tackon #wyb2 "data_p"))
  226. (set #wyb5 (tackon #wyb2 "notatnik"))
  227. (set #wyb6 (tackon #wyb2 "Docs"))
  228. (set #wyb7 (tackon #wyb2 "import"))
  229. (set #wyb8 (tackon #wyb2 "export"))
  230. (set #wyb9 (tackon #wyb2 "rexx"))
  231. (set #wyb0 (tackon #wyb2 "catalogs"))
  232. (set #wya0 (tackon #wyb2 "plugins"))
  233. (set #wyz5 (tackon #wyb2 "prefs"))
  234. (set #pig (tackon #wyb2 "libs"))
  235. (set #work (tackon #wyb2 "work"))
  236.  
  237.  
  238. (makedir #wyb2 (infos))
  239. (makedir #wyb3)
  240. (makedir #wyb4)
  241. ;(makedir #wyb5)
  242. (makedir #wyb6 (infos))
  243. (makedir #wyb7)
  244. (makedir #wyb8)
  245. (makedir #wyb9)
  246. (makedir #wyb0)
  247. (makedir #wyz5)
  248. (makedir #pig)
  249. (makedir #work)
  250. (makedir #wya0)
  251.  
  252. (if (=(exists "tv.ext" (noreq)) 1)
  253. (
  254.  
  255. (if (>= @installer-version 2883594)
  256. (
  257. (showmedia 'pics' 'Docs/pics/aktualizacja.iff' 'upper_left' 'none' 1)
  258. ))
  259.  
  260.  
  261.  
  262.  
  263. (if (= wybr 0)
  264. (
  265. (set importk
  266.     (askoptions
  267.         (prompt #import_prompt)
  268.         (help @askoptions-help)
  269.         (choices "WirtualnaPolska (114 programów, ôredni transfer)")
  270.         (default 0)
  271.     )
  272. )
  273.  
  274. (if (BITAND importk %1)
  275. (
  276. (set #kopiuj_modul "import/html-wp-online.tv")
  277.  
  278.  
  279.  
  280. (set #wb_sel3
  281. (copyfiles
  282.     (prompt #kopiuj_wb31)
  283.     (source "prefs/html-wp-online.pref")
  284.     (dest #wyz5)
  285.     (infos)
  286.     (help #help_wb31)
  287. )
  288. )
  289. (set #wb_sel3a
  290. (copyfiles
  291.     (prompt #kopiuj_wb31)
  292.     (source #kopiuj_modul)
  293.     (dest #wyb7)
  294.     (infos)
  295.     (help #help_wb31)
  296. )
  297. )
  298.  
  299. (set #wb_sel3a
  300. (copyfiles
  301.     (prompt #kopiuj_wb31)
  302.     (source "import/text.tv")
  303.     (dest #wyb7)
  304.     (infos)
  305.     (help #help_wb31)
  306. )
  307. )
  308.  
  309.  
  310. ))
  311.  
  312. (if (BITAND importk %10)
  313. (
  314. (set #kopiuj_modul "import/html-wp-online.tv")
  315.  
  316. (set #wb_sel3
  317. (copyfiles
  318.     (prompt #kopiuj_wb31)
  319.     (source #kopiuj_modul)
  320.     (dest #wyb7)
  321.     (infos)
  322.     (help #help_wb31)
  323. )
  324. )
  325.  
  326.  
  327. (set #wb_sel3a
  328. (copyfiles
  329.     (prompt #kopiuj_wb31)
  330.     (source "import/text.tv")
  331.     (dest #wyb7)
  332.     (infos)
  333.     (help #help_wb31)
  334. )
  335. )
  336.  
  337. (set #wb_sel3z
  338. (copyfiles
  339.     (prompt #kopiuj_wb31)
  340.     (source "prefs/html-wp-online.pref")
  341.     (dest #wyz5)
  342.     (infos)
  343.     (help #help_wb31)
  344. )
  345. )
  346.  
  347. ))
  348. )
  349.  
  350. (if (>= @installer-version 2883594)
  351. (
  352. (closemedia pics)
  353. )))
  354.  
  355. ))
  356.  
  357.  
  358. (complete 10)
  359.  
  360. (set #wb_pig
  361. (copyfiles
  362.     (prompt #pigw)
  363.     (source "libs/tvmanager.library")
  364.     (dest #pig)
  365.     (infos)
  366.     (help #help_wb3)
  367. )
  368. )
  369.  
  370. (if (=(exists "libs/bugraport.library" (noreq)) 1)
  371.  
  372. (set #wb_pig
  373. (copyfiles
  374.     (prompt #pigw)
  375.     (source "libs/bugraport.library")
  376.     (dest #pig)
  377.     (infos)
  378.     (help #help_wb3)
  379. )
  380. )
  381.  
  382. )
  383.  
  384. (if (=(exists "Pref" (noreq)) 1)
  385.  
  386. (set #wb_pref
  387. (copyfiles
  388.     (prompt #kopiuj_wb)
  389.     (source "pref")
  390.     (dest #wyb2)
  391.     (infos)
  392.     (help #help_wb3)
  393. )
  394. )
  395.  
  396.  
  397. )
  398.  
  399. (set #wb_sel
  400. (copyfiles
  401.     (prompt #kopiuj_wb)
  402.     (source "TV")
  403.     (dest #wyb2)
  404.     (infos)
  405.     (help #help_wb)
  406. )
  407. )
  408.  
  409. (complete 20)
  410.  
  411. (set #wb_sel1
  412. (copyfiles
  413.     (prompt #kopiuj_wb1)
  414.     (source "Docs")
  415.     (dest #wyb6)
  416.     (all)
  417.     (help #help_wb1)
  418. )
  419. )
  420.  
  421. (complete 40)
  422.  
  423. (set progpow
  424.     (askchoice
  425.         (prompt #powiad_info)
  426.         (help #powiad_help)
  427.         (choices #powiad_gdzie1 #powiad_gdzie2 #powiad_gdzie3)
  428.         (default 0)
  429.     )
  430. )
  431.  
  432. (if (= progpow 0)
  433. (
  434.  
  435. (copyfiles
  436.     (prompt #powiad_kopiuj)
  437.     (source "TVPowiadamiacz")
  438.     (dest "sys:wbstartup")
  439.     (infos)
  440.     (help #powiad_help)
  441.  
  442. )))
  443.  
  444. (if (= progpow 1)
  445. (
  446.  
  447. (copyfiles
  448.     (prompt #powiad_kopiuj)
  449.     (source "TVPowiadamiacz")
  450.     (dest #wyb2)
  451.     (infos)
  452.     (help #powiad_help)
  453.  
  454. )))
  455.  
  456.  
  457. (set #wb_sel2
  458. (copyfiles
  459.     (prompt #kopiuj_wb2)
  460.     (source "rexx")
  461.     (dest #wyb9)
  462.     (all)
  463.     (help #help_wb2)
  464. )
  465. )
  466.  
  467. (complete 55)
  468.  
  469. (set #wb_sel3
  470. (copyfiles
  471.     (prompt #kopiuj_wb31)
  472.     (source #kopiuj_modul)
  473.     (dest #wyb7)
  474.     (infos)
  475.     (help #help_wb31)
  476. )
  477. )
  478.  
  479. (set #wb_sel3x
  480. (copyfiles
  481.     (prompt #kopiuj_wb31)
  482.     (source #kopiuj_pref)
  483.     (dest #wyz5)
  484.     (infos)
  485.     (help #help_wb31)
  486. )
  487. )
  488.  
  489.  
  490. (complete 60)
  491.  
  492.  
  493. (complete 65)
  494.  
  495. (set #wb_sel5
  496. (copyfiles
  497.     (prompt #kopiuj_wb3)
  498.     (source "NUMERACJA.pref")
  499.     (dest #wyb2)
  500.     (infos)
  501.     (help #help_wb3)
  502. )
  503. )
  504.  
  505. (complete 70)
  506.  
  507. (set #wb_sel6
  508. (copyfiles
  509.     (prompt #kopiuj_wb3)
  510.     (source "ROK.pref")
  511.     (dest #wyb2)
  512.     (infos)
  513.     (help #help_wb3)
  514. )
  515. )
  516.  
  517. (complete 75)
  518.  
  519. (if (= wybr 1 )
  520. (
  521.  
  522. (set #gf (tackon #wyb0 "czech"))
  523. (makedir #gf)
  524.  
  525. (copyfiles
  526.     (prompt #kopiuj_wb3)
  527.     (source "catalogs/czech")
  528.     (dest #gf)
  529.     (all)
  530. )
  531.  
  532.  
  533. ))
  534.  
  535. (if (= wybr 0)
  536. (
  537.  
  538. (set jezyk_katalog
  539.     (askoptions
  540.         (prompt "W jakim jëzyku ma 'rozmawiaê' program?")
  541.         (help @askoptions-help)
  542.         (choices "POLSKI (wbudowane)" "POLSKI z katalogu" "POLSKI w ISO" "ANGIELSKI")
  543.         (default 0)
  544.     )
  545. )
  546.  
  547.  
  548. (if (BITAND jezyk_katalog %10)
  549. (
  550.  
  551. (set #gf (tackon #wyb0 "polski"))
  552. (makedir #gf)
  553.  
  554. (copyfiles
  555.     (prompt #kopiuj_wb3)
  556.     (source "catalogs/polski")
  557.     (dest #gf)
  558.     (all)
  559. )
  560. )
  561. )
  562.  
  563.  
  564. (if (BITAND jezyk_katalog %100)
  565. (
  566.  
  567. (set #gf (tackon #wyb0 "polski"))
  568. (makedir #gf)
  569.  
  570. (copyfiles
  571.     (prompt #kopiuj_wb3)
  572.     (source "catalogs/polskiISO")
  573.     (dest #gf)
  574.     (all)
  575. )
  576. )
  577. )
  578.  
  579.  
  580. (if (BITAND jezyk_katalog %1000)
  581. (
  582.  
  583. (set #gf (tackon #wyb0 "english"))
  584. (makedir #gf)
  585.  
  586. (copyfiles
  587.     (prompt #kopiuj_wb3)
  588.     (source "catalogs/english")
  589.     (dest #gf)
  590.     (all)
  591. )
  592. )
  593. )
  594.  
  595. )
  596. )
  597.  
  598.  
  599. ;#(set #wb_sel7
  600. ;#(copyfiles
  601. ;#    (prompt #kopiuj_wb3)
  602. ;#    (source "catalogs")
  603. ;#    (dest #wyb0)
  604. ;#    (all)
  605. ;#    (help #help_wb3)
  606. ;#)
  607. ;#)
  608. ;#)
  609.  
  610. (complete 90)
  611.  
  612. (if (=(exists "tv.ext" (noreq)) 1)
  613.  
  614. (set #wb_sel8
  615. (copyfiles
  616.     (prompt #kopiuj_wb3)
  617.     (source "tv.ext")
  618.     (dest #wyb2)
  619.     (help #help_wb3)
  620. )
  621. )
  622.  
  623. )
  624.  
  625. (complete 95)
  626.  
  627. (set #komenda "Assign TVprog: ")
  628.  
  629. (set #komenda1 (cat #komenda #wyb2))
  630.  
  631. (startup "TV-PROGRAM"
  632.     (prompt #dodaj)
  633.     (command #komenda1)
  634.     (help #dodaj_help)
  635. )
  636.  
  637. (makeassign "TVprog" #wyb2)
  638.  
  639. (if (=(exists "libs:mui/betterbalance.mcc" (noreq)) 1)
  640.  
  641. (tooltype
  642.     (prompt #dodaje_tt)
  643.     (help #dodaje_tt)
  644.     (dest "tvprog:tv")
  645.     (settooltype "TV_BETTERBALANCE" "ON")
  646.  
  647. )
  648. (
  649. (tooltype
  650.     (prompt #dodaje_tt)
  651.     (help #dodaje_tt)
  652.     (dest "tvprog:tv")
  653.     (settooltype "TV_BETTERBALANCE" "OFF")
  654.  
  655. )
  656. )
  657.  
  658. )
  659.  
  660. (if (=(exists "libs:mui/tearoff.mcp" (noreq)) 1)
  661.  
  662. (tooltype
  663.     (prompt #dodaje_tt)
  664.     (help #dodaje_tt)
  665.     (dest "tvprog:tv")
  666.     (settooltype "TV_TEAROFF" "ON")
  667.  
  668. )
  669. (
  670. (tooltype
  671.     (prompt #dodaje_tt)
  672.     (help #dodaje_tt)
  673.     (dest "tvprog:tv")
  674.     (settooltype "TV_TEAROFF" "OFF")
  675.  
  676. )
  677. )
  678.  
  679. )
  680.  
  681. (set #wb_wp
  682. (copyfiles
  683.     (prompt #kopiuj_wb)
  684.     (source "verifywp")
  685.     (dest "tvprog:")
  686.     (help #help_wb3)
  687. )
  688. )
  689.  
  690. (set #wb_wp
  691. (copyfiles
  692.     (prompt #kopiuj_wb)
  693.     (source "import/html-wp-online.ust")
  694.     (dest "tvprog:import/")
  695.     (help #help_wb3)
  696. )
  697. )
  698.  
  699. (run "tvprog:verifywp")
  700.  
  701. (complete 100)
  702. )
  703. )
  704.  
  705.  
  706. (if (= sposob 1)
  707. (
  708.  
  709. (set #wb_sel
  710. (copyfiles
  711.     (prompt #kopiuj_wb)
  712.     (source "TV")
  713.     (dest "Tvprog:")
  714.     (help #help_wb)
  715. )
  716. )
  717.  
  718. (complete 10)
  719.  
  720. (set #wb_sel1
  721. (copyfiles
  722.     (prompt #kopiuj_wb1)
  723.     (source "Docs")
  724.     (dest "tvprog:docs/")
  725.     (all)
  726.     (help #help_wb1)
  727. )
  728. )
  729.  
  730. (complete 30)
  731.  
  732. (set #wb_sel7
  733. (copyfiles
  734.     (prompt #kopiuj_wb3)
  735.     (source "catalogs")
  736.     (dest "tvprog:catalogs/")
  737.     (all)
  738.     (help #help_wb3)
  739. )
  740. )
  741.  
  742. (complete 50)
  743.  
  744. (if (=(exists "tvprog:Pref" (noreq)) 1)
  745. (
  746. (set #wb_sel
  747. (copyfiles
  748.     (prompt #kopiuj_wb3)
  749.     (source "Pref")
  750.     (dest "Tvprog:")
  751.     (help #help_wb3)
  752. )
  753. )
  754. ))
  755.  
  756. (complete 60)
  757.  
  758. ;(if (=(exists "tvprog:import/html-pl-online.tv" (noreq)) 1)
  759. ;(
  760. ;(set #wb_sel
  761. ;(copyfiles
  762. ;    (prompt #kopiuj_wb3)
  763. ;    (source "import/html-pl-online.tv")
  764. ;    (dest "Tvprog:import/")
  765. ;    (help #help_wb3)
  766. ;)
  767. ;)
  768. ;))
  769.  
  770. (complete 70)
  771.  
  772. (if (=(exists "tvprog:import/html-wp-online.tv" (noreq)) 1)
  773. (
  774. (set #wb_sel
  775. (copyfiles
  776.     (prompt #kopiuj_wb3)
  777.     (source "import/html-wp-online.tv")
  778.     (dest "Tvprog:import/")
  779.     (help #help_wb3)
  780. )
  781. )
  782. ))
  783.  
  784. (if (=(exists "libs/bugraport.library" (noreq)) 1)
  785.  
  786. (set #wb_pig
  787. (copyfiles
  788.     (prompt #pigw)
  789.     (source "libs/bugraport.library")
  790.     (dest "tvprog:libs/")
  791.     (help #help_wb3)
  792. )
  793. )
  794.  
  795. )
  796.  
  797. (set #wb_pig
  798. (copyfiles
  799.     (prompt #pigw)
  800.     (source "libs/tvmanager.library")
  801.     (dest "tvprog:libs/")
  802.     (help #help_wb3)
  803. )
  804. )
  805.  
  806. (complete 80)
  807.  
  808. (if (=(exists "tvprog:import/html-cz-online.tv" (noreq)) 1)
  809. (
  810. (set #wb_sel
  811. (copyfiles
  812.     (prompt #kopiuj_wb3)
  813.     (source "import/html-cz-online.tv")
  814.     (dest "Tvprog:import/")
  815.     (help #help_wb3)
  816. )
  817. )
  818.  
  819. (complete 100)
  820.  
  821. ))
  822.  
  823.  
  824. ))